_location = _this select 0;
_radius   = _this select 1;

_what = (nearestObjects [_location,[],_radius]) - ((getPos _location) nearObjects _radius);
sleep 1.5;
{_x setdammage (1.0)} forEach _what;